home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
090
/
rpc161a1.arc
/
RPC-SUB1.BAS
< prev
next >
Wrap
BASIC Source File
|
1988-04-13
|
7KB
|
195 lines
******************************************************************************
************************ RBBS-PC Protocol Controller *** RPC-SUB1.BAS ****
************************ Merge for RBBS-PC.BAS *********************
************************ By John Morris ******* 16-1A *******
******************************************************************************
117 IF SUBROUTINE.PARAMETER <> -62 THEN _
IF PREV.READ$ = CONFIG.FILE$ THEN _
EXIT SUB _
ELSE PREV.READ$ = CONFIG.FILE$
CLOSE 2
BULLETIN.SAVE$ = BULLETIN.MENU$
OPEN "I",2,CONFIG.FILE$
CURRENT.DEF$ = CONFIG.FILE$
INPUT #2,DOWNLOAD.DRIVES$, _
SYSOP.PASSWORD.1$, _
SYSOP.PASSWORD.2$, _
SYSOP.FIRST.NAME$, _
SYSOP.LAST.NAME$, _
REQUIRED.RINGS, _
START.OFFICE.HOURS, _
END.OFFICE.HOURS, _
MINUTES.PER.SESSION!, _
DF, _
DF, _
UPLOAD.DIRECTORY$, _
EXPERT.USER, _
ACTIVE.BULLETINS, _
PROMPT.BELL, _
DF, _
MENUS.CAN.PAUSE, _
MENU$(1), _
MENU$(2), _
MENU$(3), _
MENU$(4), _
MENU$(5), _
MENU$(6), _
CONFERENCE.MENU$, _
DF, _
WELCOME.INTERRUPTABLE, _
REMIND.FILE.TRANSFERS, _
PAGE.LENGTH, _
MAX.MESSAGE.LINES, _
DOORS.AVAILABLE, _
DF$
IF CONFERENCE.MODE THEN _
INPUT #2,DF$,_
DF$_
ELSE INPUT #2,MAIN.MESSAGE.FILE$, _
MAIN.MESSAGE.BACKUP$
INPUT #2, CALLERS.FILE$, _
COMMENTS.FILE$, _
MAIN.USER.FILE$, _
WELCOME.FILE$, _
NEWUSER.FILE$, _
MAIN.DIRECTORY.EXTENTION$
IF CONFERENCE.MODE THEN _
INPUT #2, DF$ _
ELSE INPUT #2, COM.PORT$
INPUT #2, BULLETINS.OPTIONAL, _
MODEM.INIT.COMMAND$, _
RTS$, _
DF, _
FG, _
BG, _
* ------[ first line different ]------
BORDER
IF CONFERENCE.MODE THEN _ 'RENO MOD
INPUT #2, DF$, _
DF$ _
ELSE INPUT #2, RBBS.BAT$, _
RCTTY.BAT$
DOS.VERSION = 2
INPUT #2,OMIT.MAIN.DIRECTORY$, _
FIRST.NAME.PROMPT$, _
HELP$(3), _
HELP$(4), _
HELP$(7), _
HELP$(9), _
BULLETIN.MENU$, _
BULLETIN.PREFIX$, _
DF$, _
MESSAGE.REMINDER, _
REQUIRE.NON.ASCII, _
DOORS.SECURITY.LEVEL, _
MAXIMUM.NUMBER.OF.NODES, _
NETWORK.TYPE, _
RECYCLE.TO.DOS, _
DF, _
DF, _
TRASHCAN.FILE$
INPUT #2,MINIMUM.LOGON.SECURITY, _
DEFAULT.SECURITY.LEVEL, _
SYSOP.SECURITY.LEVEL, _
FILESEC.FILE$, _
SYSOP.MENU.SECURITY.LEVEL, _
LOCAL.PASSWORD$, _
MAXIMUM.VIOLATIONS, _
OPT.SEC(50), _ ' SECURITY FOR SYSOP COMMANDS 1
OPT.SEC(51), _
OPT.SEC(52), _
OPT.SEC(53), _
OPT.SEC(54), _
OPT.SEC(55), _
OPT.SEC(56), _ ' SYSOP 7
PASSWORDS.FILE$, _
MAXIMUM.PASSWORD.CHANGES, _
MINIMUM.SECURITY.FOR.TEMP.PASSWORD, _
OVERWRITE.SECURITY.LEVEL, _
DOORS.TERMINAL.TYPE, _
MAX.PER.DAY
INPUT #2,OPT.SEC(1), _ ' SECURITY FOR MAIN MENU COMMANDS 1
OPT.SEC(2), _
OPT.SEC(3), _
OPT.SEC(4), _
OPT.SEC(5), _
OPT.SEC(6), _
OPT.SEC(7), _
OPT.SEC(8), _
OPT.SEC(9), _
OPT.SEC(10), _
OPT.SEC(11), _
OPT.SEC(12), _
OPT.SEC(13), _
OPT.SEC(14), _
OPT.SEC(15), _
OPT.SEC(16), _
OPT.SEC(17), _
OPT.SEC(18), _ ' MAIN COMMAND 18
MIN.NEWCALLER.BAUD, _
WAIT.BEFORE.DISCONNECT
INPUT #2,OPT.SEC(19), _ ' Security for FILE COMMANDS 1
OPT.SEC(20), _
OPT.SEC(21), _
OPT.SEC(22), _
OPT.SEC(23), _
OPT.SEC(24), _
OPT.SEC(25), _
OPT.SEC(26), _ ' FILE COMMAND 8
OPT.SEC(27), _ ' SECURITY FOR UTILITY COMMANDS 1
OPT.SEC(28), _
OPT.SEC(29), _
OPT.SEC(30), _
OPT.SEC(31), _
OPT.SEC(32), _
OPT.SEC(33), _
OPT.SEC(34), _
OPT.SEC(35), _
OPT.SEC(36), _
OPT.SEC(37), _
OPT.SEC(38), _ ' UTIL COMMAND 12
OPT.SEC(46), _ ' SECURITY FOR GLOBAL COMMANDS 1
OPT.SEC(47), _
OPT.SEC(48), _
OPT.SEC(49), _ ' GLOBAL 4
UPLOAD.TIME.FACTOR!, _
COMPUTER.TYPE, _
REMIND.PROFILE, _
RBBS.NAME$, _
COMMANDS.BETWEEN.RINGS, _
MNP.SUPPORT, _
PAGING.PRINTER.SUPPORT$, _
MODEM.INIT.BAUD$
IF EC > 0 THEN _
EXIT SUB
* REPLACING old line(s) by new
200 IF RTS$ = "YES" THEN _
FLOW.CONTROL = TRUE : _
X$ = ",CS,CD,DS" _
ELSE X$ = ",RS,CD,DS"
* ------[ first line different ]------
CLOSE 3
OPEN COM.PORT$ + ":" + BAUD.RATE$ + PARITY$ + X$ AS #3
'
' *****************************************************************************
' * RAISE THE RTS SIGNAL IF THE MODEM USES RTS FOR MODEM FLOW CONTROL (ONCE *
' * IT IS RAISED, IT WILL STAY UP UNTIL THE REGISTER IS CLEARED OUT). *
' *****************************************************************************
'
END SUB
' $SUBTITLE: 'GETCOM -- subroutine reads a char. from comm. port'
' $PAGE
'
' SUBROUTINE NAME -- GETCOM
'
' INPUT PARAMETERS -- PARAMETER MEANING
' STNG$ STRING TO READ A CHARACTER INTO FROM
' THE COMMUNICATIONS PORT (FILE #3)
'
' OUTPUT PARAMETERS -- STNG$
'
' SUBROUTINE PURPOSE -- READS A CHARACTER FROM FROM THE COMMUNICATIONS PORT.
'
SUB GETCOM (STRNG$) STATIC
ON ERROR GOTO 65000